home *** CD-ROM | disk | FTP | other *** search
/ MACD 5 (Alt) / MACD 5.bin / internet / yam_i_dodatki / yamgetmail / yamgetmail.rexx < prev   
Encoding:
OS/2 REXX Batch file  |  1997-05-29  |  2.0 KB  |  87 lines
  1. /*
  2. YAMgetmail.rexx V1.3
  3. (C) 30.5.1997 A.Teichmann@t-online.de
  4.  
  5. Dieses Arexx Script startet falls noch nicht geschenen Miami und Yam ,
  6. setzt MIAMI wenn es ONLINE ist in den Hintergrund.
  7. Dann wird die Post abgeholt ,neue Post gesendet,Miami in den Vordergrund
  8. geholt ,offline gesetzt und wieder falls es gestartet wurde beendet.
  9.  
  10. Siehe YAMgetmail.Guide
  11. */
  12.     NL="0a"x
  13.     wait="rexx:waitforport"            /* Pfad und Name für waitforport */
  14.     run="c:run"                /* Pfad und Name für run befehl  */
  15.     yam="YAM:YAM"                /* Pfad und Name für YAM      */
  16.     miami="sys:terminal/internet/miami"    /* Pfad und Name für MIAMI      */
  17.  
  18.     textr=" *** ACHTUNG ! ***"nl"Ihr Mailserver ist"nl"nicht erreichbar."nl"konnte neue Mails nicht abholen."
  19.     texts=" *** ACHTUNG ! ***"nl"Ihr Mailserver ist "nl"nicht erreichbar."nl"konnte Ihre Mails nicht senden."
  20.     yamstart=0
  21.     miamistart=0
  22.     OPTIONS RESULTS
  23.     if show("p","MIAMI.1") = 0 then do
  24.         address command run" "miami
  25.         miamistart=1
  26.         end
  27. mi1:
  28.     address command wait "MIAMI.1"
  29.     if rc~=0 then siganl mi1
  30.  
  31.     if show("p","YAM") = 0 then do
  32.         address command run" "yam" nocheck"
  33.         yamstart=1
  34.         end
  35. ya1:    address command wait "YAM"
  36.     if rc~=0 then signal ya1
  37.  
  38.     ADDRESS MIAMI.1
  39.     ONLINE 
  40.     do forever
  41.         address command wait "MIAMI"
  42.         ADDRESS MIAMI.1
  43.         ISONLINE
  44.         IF RC = 1 THEN leave
  45.         end
  46.  
  47.     rtresult=1
  48.     if miamistart=1 then HIDE
  49.     ADDRESS YAM
  50.     SETFOLDER 0
  51. again:
  52.     fail=0
  53.     MAILCHECK
  54.     if result =-1 then fail=1
  55.     if fail=1 then request textr "Nochmal|Abbruch"
  56.     if fail=1 then if result=0 then signal again
  57. again2:
  58.     SETFOLDER 1
  59.     getfolderinfo max
  60.     zusenden=result
  61.     if zusenden>0 then do
  62.         fail=0
  63.         MAILSENDALL
  64.         if result =-1 then fail=1
  65.         if fail=1 then request texts "Nochmal|Abbruch"
  66.         if fail=1 then if result=0 then signal again2    
  67.     end
  68.     SETFOLDER 0
  69.     ADDRESS MIAMI.1
  70.     if miamistart=1 then SHOW
  71.     OFFLINE
  72.     do forever
  73.         address command wait "MIAMI"
  74.         ADDRESS MIAMI.1
  75.         ISONLINE
  76.         IF RC = 0 THEN leave
  77.         end
  78.     if miamistart=1 then do
  79.         ADDRESS MIAMI.1
  80.         QUIT
  81.         end
  82.     if yamstart=1 then do
  83.             ADDRESS YAM
  84.             QUIT
  85.             end
  86.     exit
  87.